home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / ma.dir / 00945.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.2 KB  |  51 lines
  1. on AdjustClues
  2.   repeat with vI = 246 to 709
  3.     put vI
  4.     set vPoint to the regPoint of cast vI
  5.     set vH to getAt(vPoint, 1) + 2
  6.     set vV to getAt(vPoint, 2) + 0
  7.     set the regPoint of cast vI to point(vH, vV)
  8.   end repeat
  9. end
  10.  
  11. on findMissing
  12.   set vText to the text of cast 7
  13.   set vlines to the number of lines in vText
  14.   repeat with vI = 1 to vlines
  15.     set the itemDelimiter to "#"
  16.     set vData to item 2 of line vI of vText
  17.     set the itemDelimiter to ":"
  18.     set vAth to item 1 of vData
  19.     set vClues to value(item 2 of vData)
  20.     if vAth < 10 then
  21.       set vPre to "00"
  22.     else
  23.       if vAth < 100 then
  24.         set vPre to "0"
  25.       else
  26.         set vPre to EMPTY
  27.       end if
  28.     end if
  29.     checkPresent("HS" & vPre & vAth & ".pct")
  30.     checkPresent("MA" & vPre & vAth)
  31.     repeat with vJ = 1 to count(vClues)
  32.       checkPresent(getAt(vClues, vJ) & ".pct")
  33.     end repeat
  34.   end repeat
  35. end
  36.  
  37. on checkPresent aName
  38.   if the number of cast aName < 1 then
  39.     put "Missing" && aName
  40.   end if
  41. end
  42.  
  43. on MarkBad
  44.   set vText to the text of cast 962
  45.   set vlines to the number of lines in vText
  46.   repeat with vI = 1 to vlines
  47.     set vName to line vI of vText & ".pct"
  48.     set the name of cast vName to "Delete Me"
  49.   end repeat
  50. end
  51.